unit frCompanyDocPage;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, frBillPage;

type
  TfrmCompanyDocPage = class(TfrmBillPage)
  private
    { Private declarations }
  public
    { Public declarations }
    procedure InitBrowserForm(AFormName: string = ''); override;
    procedure SelectClass(AClass: string; ADepartment: string); override;
  end;

var
  frmCompanyDocPage: TfrmCompanyDocPage;

implementation

uses
  fDocManager;

{$R *.dfm}

procedure TfrmCompanyDocPage.InitBrowserForm(AFormName: string = '');
begin
  if AFormName = '' then
    EmbedForm(TfmDocManager, 'fmCompanyDocPage')
  else
    EmbedForm(TfmDocManager, 'fmCompanyDocPage' + AFormName);
end;

procedure TfrmCompanyDocPage.SelectClass(AClass: string; ADepartment: string);
begin
  (FEmbedForm as TfmDocManager).SetRootNode(AClass);
end;

end.
